home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / multi-test.self < prev    next >
Encoding:
Text File  |  1993-05-23  |  270 b   |  12 lines
  1. _AddSlots: (| foo. bar. |)
  2.  
  3. foo _Define: (|
  4.           myFunc: aBlock = ( aBlock value: 10 With: 20 ).
  5. |)
  6.  
  7. bar _Define: (|
  8.           mytest = ( foo myFunc: [ | :firstval. secondval |
  9.                               firstval + secondval
  10.                               ]).
  11. |)
  12.